home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Amiga-E / E_v3.2a / Src / Intui / Talk2Boopsi.e < prev   
Text File  |  1992-09-02  |  1KB  |  30 lines
  1. /* Talk2Boopsi.e - free translation of Talk2Boopsi.c from RKRM libraries */
  2.  
  3. MODULE 'intuition/intuition', 'intuition/gadgetclass', 'intuition/icclass'
  4.  
  5. DEF w:PTR TO window, prop:PTR TO gadget, integer:PTR TO gadget
  6.  
  7. PROC main()
  8.   IF w:=OpenWindowTagList(NIL,[WA_FLAGS,$E,WA_IDCMP,$200,WA_WIDTH,120,
  9.     WA_HEIGHT,150,0])
  10.     IF prop:=NewObjectA(NIL,'propgclass',[GA_ID,1,GA_TOP,w.bordertop+5,
  11.       GA_LEFT,w.borderleft+5,GA_WIDTH,10,GA_HEIGHT,80,ICA_MAP,[PGA_TOP,
  12.       STRINGA_LONGVAL,0],PGA_TOTAL,100,PGA_TOP,25,PGA_VISIBLE,10,
  13.       PGA_NEWLOOK,TRUE,0])
  14.       IF integer:=NewObjectA(NIL,'strgclass',[GA_ID,2,GA_TOP,w.bordertop+5,
  15.         GA_LEFT,w.borderleft+30,GA_WIDTH,40,GA_HEIGHT,18,ICA_MAP,
  16.         [STRINGA_LONGVAL,PGA_TOP,0],ICA_TARGET,prop,GA_PREVIOUS,prop,
  17.         STRINGA_LONGVAL,25,STRINGA_MAXCHARS,3,0])
  18.         SetGadgetAttrsA(prop,w,NIL,[ICA_TARGET,integer,0])
  19.         AddGList(w,prop,-1,-1,NIL)
  20.         RefreshGList(prop,w,NIL,-1)
  21.         WaitIMessage(w)
  22.         RemoveGList(w,prop,-1)
  23.         DisposeObject(integer)
  24.       ENDIF
  25.       DisposeObject(prop)
  26.     ENDIF
  27.     CloseWindow(w)
  28.   ENDIF
  29. ENDPROC
  30.